home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST10.TRP < prev    next >
Text File  |  1995-03-18  |  444b  |  24 lines
  1. function stringOf(i : byte) : string;
  2. var
  3.         s : string
  4. endVar
  5.         str(i : 0 : 2, s);
  6.         return s;
  7. endProc
  8.  
  9. procedure main
  10. var
  11.         a1 : array[1 .. 9] of string;
  12.         i : byte;
  13. endVar
  14.         for i := 1 to 9 
  15.                 a1[i]  := 'The String is ' + stringOf(i);
  16.         endFor
  17.         i := 9
  18.         while (i > 0)
  19.                 writeln(a1[i]);
  20.                 dec(i);
  21.         endWhile
  22. endProc
  23.  
  24.